
(Pcar '(1))				; => ERROR

(Pls (Pseq '(1 2 3) +inf.0 0) 6)	; => (1 2 3 1 2 3)

(Pls (Pseq '(1 2 3) +inf.0 1) 6)	; => (2 3 1 2 3 1)

(Pls (Pser '(1 2 3) 4 1))		; => (2 3 1 2)

(Pls (Prand '(1 2 3) +inf.0) 6)		; => RANDOM

(Pls (Pshuf '(1 2 3) +inf.0) 6)		; => RANDOM

(Pls (Place '(1 (2 5) (3 6)) +inf.0) 
	      9)			; => (1 2 3 1 5 6 1 2 3)

(Pls
 (Pswitch (list (Pseq '(1 2 3) 2 0)
		(Pseq '(65 76) 1 0)
		800)
	  (Pseq '(2 2 0 1) +inf.0 0))
 12)					; => (800 800 1 2 3 1 2 3 65 76 800)

(Pls
 (Preject (lambda (e) (= e 1)) (Pseq '(1 2 3) +inf.0 0))
 9)					; => (2 3 2 3 2 3 2 3 2)

(Pls
 (Pselect (lambda (e) (not (= e 2))) (Pseq '(1 2 3) +inf.0 0))
 9)					; => (1 3 1 3 1 3 1 3 1)

(Pls
 (Pstutter 2 (Pseq '(1 2 3) +inf.0 0))
 13)

(Pls
 (Pn (Pseq '(1 2 3) 1 0) 4))		; => (1 2 3 1 2 3 1 2 3 1 2 3)

(Pls
 (Pfin 5 (Pseq '(1 2 3) +inf.0 0)))	; => (1 2 3 1 2)

;;

(Pls (Piota 12 4 2))	                ; => (4 6 8 10 12 14 16 18 20 22 24 26)

(Pls (Pgeom 1 2 6))			; => (1 2 4 8 16 32)

(Pls (P+ (Piota 12 4 2)
	 (Pgeom 1 2 6)))		; => (5 8 12 18 28 46)

(Pls (Ptuple (list (Pseq '(1 2 3) +inf.0 0)
		   (Pseq '(65 76) +inf.0 0))
	     +inf.0)
     8)

(Pls (Pcollect (lambda (e) (* e 3)) 
	       (Pseq '(1 2 3) +inf.0 0))
     9)					; => (3 6 9 3 6 9 3 6 9)

(map
 table->alistL
 (Pls (Pbind 'a 1 'b (Pseq '(2 3 4) 2 0))
      6))

;; => (((b 2) (a 1)) ((b 3) (a 1)) ((b 4) (a 1)) 
;;     ((b 2) (a 1)) ((b 3) (a 1)) ((b 4) (a 1)))
